home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-09
/
floppies.zip
/
FLOPPY.ZIP
/
FLPANSQ2.SC
< prev
next >
Wrap
Text File
|
1992-03-14
|
937b
|
41 lines
;--------------FLPANSQ1.SC
STYLE ATTRIBUTE 30
CLEAR
STILLATIT=TRUE
WHILE STILLATIT
CLEARALL
CLEAR
@ 12,4
?? "ENTER DISK DESCRIPTION TO LOOK UP"
@ 14,4
?? "OR JUST PRESS ENTER TO RETURN TO MENU : "
ACCEPT "A30" TO LOOKUP
LOOKUP=UPPER(LOOKUP)
IF ISBLANK(LOOKUP) then
@ 24,10 CLEAR EOL
?? "...RETURNING TO MENU.."
QUITLOOP
ENDIF
@ 24,1
?? "SETTING POINTER TO " + LOOKUP
MENU{ASK}{ANSWER} CHECK
[DISK DESCRIPTION] = LOOKUP
DO_IT!
MENU{VIEW}{ANSWER}
IF (NRECORDS("ANSWER") = 0) THEN
BEEP
@ 24,1 CLEAR EOL
?? "THERE IS NO " + LOOKUP + " LISTED"
SLEEP 5000
PLAY "QUERFLOP"
LOOP
ENDIF
EDITKEY
WAIT TABLE
PROMPT "PRESS F2 WHEN DONE"
UNTIL "F2"
DO_IT!
ENDWHILE
CLEAR
RETURN